unit HesapTanimlari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClassEmptyList, Menus, DB, ADODB, ImgList, XPMan, StdActns,
  ActnList, StdCtrls, Buttons, fcLabel, Grids, Wwdbigrd, Wwdbgrid,
  ExtCtrls, fcStatusBar, wwdblook, Mask, wwdbedit, Wwdotdot, Wwdbcomb;

type
  TfmHesapTanimlari = class(TfmFormClassEmptyList)
    aqBanka: TADOQuery;
    cbDovizTuru: TwwDBComboBox;
    lcbBanka: TwwDBLookupCombo;
    lcTur: TwwDBComboBox;
    aqCari: TADOQuery;
    lcCari: TwwDBLookupCombo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmHesapTanimlari: TfmHesapTanimlari;

implementation
uses data;
{$R *.dfm}

procedure TfmHesapTanimlari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmHesapTanimlari := nil;
end;

procedure TfmHesapTanimlari.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqCari.SQL.Text, aqCari);
  OpenQueryOnDataSet(aqBanka.SQL.Text, aqBanka);
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

